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3 1 MODULE INIFCP ( ANGUAGE, ' 2), 

i § LARGE. BLIBER 

os BEGIN 

; ; 1! 

3 8 } eae os eee ge eae 
o .* ‘2 
5 Q 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 & 
., oe 11. 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. = 
3 1 \¢ } ;* ALL RIGHTS RESERVED. . 
: 14 14 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
5 15 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 18 6 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 1 1 !® COPIES THEREOF oy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 18 ig 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i is : TRANSFERRED. 3 
: 1 00 1 1 is pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
FH ¢ 00 ¢ 1 !e SH vt D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
; Z Be Z : CORPORA TION. : 
: 25 8 5 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; : 89 $ : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ° 
: 28 0028 1 is e 
: 9 +4 9 : See RRA AERA AAAAAAAAARAAAERARAAAARAERE EERE ARERAEAAEAAAAAAAAAAAAEARRERERAEREEEE 
: 0 

; 1 0031 1 !+¢ 

3 ¢ 00 3 1! 

: ' : FACILITY: FI1IACP Structure Level 1 

<. = 5 i ABSTRACT: 

; ; \ This routine does the one time initialization for FCP. 

; 39 33 | ENVIRONMENT : 

ae 4 iE: = STARLET operating system, including privileged system services 

; ¢g ¢ 1! and internal exec routines. This routine must be called 

$ re Z : in kernel mode. 

> 45 5 1 ie 

: oii 

: $8 8 ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 16:30 

; i i i MODIFIED BY: 

; ¢ ; 1 i v03-001 ACGO346 Andrew C. Goldstein, 2-Aug=1 -1983 15:17 

3 36 4 ! : Remove creation of job controller reply mailbox 

: 5 2 1: v02-001 Ag50582 Andrew C. Goldstein, 22-Dec-1981 20:35 

: 29 2$ { Add job controller mailbox 
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v02-000 ACG0167 Andrew C. Goldstein 


Previous revision history moved to F11A. 


RARY ‘SYSSLIBRARY:L 
UIRE "SRCS:FCPDEF.B 


ummy vectors to bracket the locked down code and data psects. 
= SLOCKEDCOS (nour ite. EXECUTE, ALIGN (9)); 


= SLOCKEDC9S {Howe TE, EXECUTE, ALIGN (2)); 


SANGNASSELRFALLSSS 


= SLOCKEDDOS; 


= SLOCKEDD9S; 


aD Rad HS Wb A a a 8 at 2 - tt 


= SLOCKEDD1$; 


10° 
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GLOBAL ROUTINE INIT_FCP : NOVALUE = 


'e¢ 
' 


FUNCTIONAL DESCRIPTION: 


Mw 


WA 


RENVLSSSVS 


This routine does the one time initialization for FCP. 
CALLING PECVERCe : 
INIT _FCP 


=) 
wm 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
system 1/0 data base 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
I0_CHANNEL: gets channel number of 1/0 channel 
QUEUE_HEAD: points to ACP queue block 
ROUT INE iow 


SIDE 34 phe 
FCP hooked up to system data base 
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i 
le 
BEGIN 


LITERAL 
EXEC_MODE = 1; ! exec mode 


LOCAL 


RRRRLLLLLLLRLLLLERLRLRLKRKRKRER LEE Re 


: VECTOR C2], ! place to save system exception vectors 
!' channel number of mailbox created 
' desired ACP working set 
! system status return 

: BELOCK, ! pointer to scan AQB List 

: REF BBLOCK; ! pointer to channel A. block 
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EXTERNAL 
' 1/0 channel number 
BBLOCK, ' ucB aceress of *SYSSDISK' 
QUEUE HEAD BBLOCK, address of ue h age 
IOC$GC_AQBLIST BBLOCK seat -RODE 
SCHSGL_CURPCB =: REF BBLOCK noone St Ne. g nODE wait. 
ACP$GW_WORKSET =: WORD ADDRESSING. RODE” thas 


TE) 
r specifi ed, ACP working set 
ACP$GW_MAPCACHE : WORD ADDRESSING _RODE 
'“erorage —" wee size 
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1984 01:08: VAK-11 BLiss-32 V4.0-742 Pp 4 oe 
198 94:98:43 DISKSVMS ASTER: CF1IA.SRCJINIFCP.B32:1- 9 (2) 
ACPSGW_HDRCACHE : WORD ADDRESSING (ABSOLUTE) 


bese 
-sep- 
12-808: 
Sit eader cache size 
ACP$GW_DIRCACHE : WORD ADDRESSING_M DE (ABSOLUTE), 
! rectory cache size 
EXESGL_FLAGS : BITVECTOR ADDRESSING_MODE (ABSOLUTE); 
! system flags vector 


EXTERNAL LITERAL 


EXESV_INIT : UNSIGNED (6); ! bit position of FCP init flag 

EXTERNAL ROUTINE 
! get CCB address of channel 

INIT_POOL; ! initialize buffer pool 
' Clear the exec exception vectors to avoid interference 
H with FCP’s error reporting logic. 
SSETEXV (VECTOR = 0, ACMODE = EXEC_MODE, PRVHND = svsexveedte ! primary exec handler 
SSETEXV (VECTOR = 1, ACMODE = EXEC_MODE, PRVHND = SYSEXV[1]); ! secondary exec handler 
! If the previous handler addresses are found to be in process space, 
: restore them since they belong to the debugger. 


IF_.SYSEXVCO] GTR O 
ieee Soe reels “eecTOR = 0, ADDRES = .SYSEXVCO], ACMODE = EXEC_MODE); ! primary exec handler 
THEN SSETEXV (VECTOR = 1, ADDRES = .SYSEXVC1], ACMODE = EXEC_MODE); ! secondary exec handler 


! Find the queue header for this ACP by searching the system AQB list 
! for an AQB with a matching PID. Then assign a channel to 

! "SYSSDISK* (as good a device as any) and record the channel number. 
! Said channel number is used for all 1/0 - it is assigned to the 

! right device simply by stu ting the UCB pointer in the CCB. 

! Also save the UCB address in the channel so that it can be restored 
: to properly deassign the channel when we exit. 


= .1OCSGL_AQBLIST; 
UNTIL .AQB at 0 OR Peet AeOel ACHP IBD EQL .SCHSGL_CURPCBCPCBSL_PIDJ 
DO AQB = .AQBLAQBSL_LINKJ; 


IF .AQB NEQ 0 

THEN QUEVE_HEAD = .AQB 

ELSE SEXIT (CODE = SS$_NOAQB); ! no queue header found - quit 

! Now adjust the working set. Get the working set size from the system 
arameters if non-zero. Else, compute it from the buffer cache sizes. 

his is done as follows: Add up the requested cache size. Add in the 

buffer descriptor overhead. Add in 48 pages of FCP code and other overhead. 

Add in additional charge for extra page tables. 


PS$GW_WORKSET; 
QL 0 
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1 ~3e0 138% 7:98:48 DISKSVMSMASTER:CF11A.SRCJINIFCP.B32;1 . (2) 
THEN 
BEGIN 
WORKING _SET = MAXU (4, -ACPSGU_MAPCACHE 
+ LACPSGW-HDRCACH 
+ .ACPSGW-DIRCACHE) ; 
WORKING_SET = .WORKING_SET + ([WORKING SET#161 + 4095) / 4096; 
WORKING-SET = .WORKING-SET + 48: 
WORKING SET = ,WORKING-SET + .WORKING_SET/128; 
If .AQBCAQBS$B_ACPTYPE] EQL AQBSK_F 
THEN WORKING _SET = .WORKING_SET # 6; ! allow extra space for structure level 2 


SADJWSL (PAGCNT = -10000); 


! adjust working set to minimum 
SADJWSL (PAGCNT = .WORKING_SET); 


i then add size desire 
! Now lock appropriate areas into the working set. These are code and data that 
: are used at raised IPL. 
STATUS = SLKWSET (INADR = UPLIT (L_CODE 
IF NOT .STATUS THEN SEXIT (CODE = [STATO 
DATA 
TAT 


STATUS = SLKWSET (INADR = UPLIT (L_ 
IF NOT .STATUS THEN SEXIT (CODE = .S 


INIT POOL (); 


TART, L_CODE_END)); 
gSTART. L_DATA_END)); 


1O_CHANNEL = 0; 
IF NOT SASSIGN (DEVNAM = DESCRIPTOR ("SYSSSYSTEM'), 
CHAN = 10 CHANNEL, 
ACMODE = EXEC_MODE) 
THEN BUG_CHECK (NOACPCHAN, FATAL, ‘Failure to assign ACP channel"); 


CCB = GET_CCB (,10_CHANNEL); 
DISK_UCB = .ccB{CCBSL_UCB); 


! Finally set the FCP inited bit in the system flags word to indicate that 
! a file system now exists ssigatyicent only during system startup). | 

! this bit was clear, we are the first up, so also create the bad block 

i scanner mailbox. Also clear the transition bit in the AQB to tell 

T that we are alive and well. 


i (EXESGL_FLAGSCEXESV_INITJ) 


BEGIN 
SCREMBX ( 
HAN _ = MBX_CHANNEL, 
MAXMSG = BBSSC_LENGTH, 
BUF QUO BBSsC LENGTH * 100, 
Xx" FFOF 

EXEC_MODE 
DESCRIPTOR (*ACPSBADBLOCK_MBX*) 


vo 
» 
$ 
“ 
x 
nnnn 


); 
END; 


QUEUE _HEADCAQB$V_CREATING) = 0; 
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§2¢ $388 f END; ! end of routine INIT_FCP 


-TITLE INJFCP 
-IDENT \V04-000\ 


-PIECT SCODES,NOWRT,2 


P.AAA: .ADDRESS L_ cOer “START L_CODE_END ; 
P.AAB: “ADDRESS. L “DAT AST AR LUDATA_END : 
P.AAD: .ASCII \S SPSss YSTEM 3 


“LONG 
“ADDRESS 
“ASCII \AcPSBADBLOCK _MBX\ 


=o 


SFURSASoes 
< 
e 
os 
& 
ea | 


40 45 54 53 59 


42 4D SF 4B 43 4F 4C 42 44 41 42 24 50 


ooo saCcooc“ecoe 


COoQooooooeco 


Sete Se te te te 


«LON 16 
"ADDRESS P.AAF 
~PSECT SLOCKEDD9$S,NOEXE,2 


00000 L_DATA_END: 
-BLKB OO 


«PSECT S$LOCKEDDOS,NOEXE,2 


00000 L_DATA_START: 
BLKB 0 


«PSECT SLOCKEDC9$,NOWRT,2 


00000 L_CODE_END: 
-BLK 0 


-PSECT S$LOCKEDCOS,NOWRT ,9 


00000 L_CODE_START: 
-BLKB 0 


.EXTRN IO_CHANNEL, DISK_U 
~EXTRN QuEVE chEAD poestr en POBLIST 
-EXTRN SCHSGC_CURPCB, ACPSGW_WORKSET 
SEXTRN ACP ch MAPCACHE 
TRN ACP$GW7HDRCACHE 

N ACP$GWODIRCACHE 

RN EX ESL FLAGS, EXESV_INIT 
TRN GET CCB, INIT_POO 

N CPSSSETEXY. SYSSEXIT 
TRN SYSSADJWSL. SYSSLKWSET 
EXTRN SYSS$ASSIGN, BUG$_NOACPCHAN 
XTRN SYSSCREMBX 


-PSECT SCODES,NOWRT,2 


O3FC 00000 .ENTRY INIT_FCP, Save R2,R3,R4,R5,R6,R7,R8,R9 > 0396 
59 00006 CF 9E 00002 MOVAB IO_CRANNEL, R9 : 


71986 92:29:59 DISKSVMSMASTERSCFTIA.SRCIINIF.CP.B32:1°°° (25 


on— 
eo = 
vv 


3 G E 7 MOVAB SYSS$LKWSET, R : 
G E . MOVAB SYSSADJWSL R : 
§ G E MOVAB SYSSEXIT, R : 
0 G : 1 MOV SySSSETEXV, RS : 
E C § SUBL2 #12, SP : 
04 AE OF 6 PUSHAB SYSEXV + 0472 
Qi pp PUSHL # : 
— 7C B CLRQ. = (SP) : 
65 04 FB 0 D CALLS #4, SYSSSETEXV : 
08 AE OF 0 PUSHAB SYSEXV+4 + 0473 
1 pp 0 PUSHL # : 
7E 1 7D MOVa. #1, =(SP) : 
6 4 FB 000 CALLS #4, SYSSSETEXV ; 
04 AE 05 00038 TSTL  SYSEXV + 0479 
0B 15 000 BLEG : 
7E 01 70 0004 MOV #1, =(SP) + 0480 
OC AE DD 0004 PUSHL  SYSEXV : 
7E D4 00046 ea: ; 
65 04 Fe 0004 CALLS #4, SYSSSETEXV : 
08 AE D5 00048 18: TSTL SYSEXV44 + 0481 
0B 15 0004 BLEQ =-2$ F 
7E 01 7D 0005 MOVa #1, =(SP) + 0482 
10 AE DD 0005 PUSHL SYSEXV+4 ; 
01 OD 00056 PUSHL #1 : 
65 04 FB 0058 CALLS #4, SYSS$SETEXV : 
53 000000006 9F 09 00 58 3s: MOVL § @M#f0CSGL_AQBLIST, AQB + 0493 
14 13 00062 3$: BEQL > 0494 
50 000000006 9F 00 00064 MOVL § @#SCHSGL_CURPCB, RO : 
60 Ad 0C A3 D1 00068 CMPL = 12(AQB) , ~96(RO) : 
06 13 9070 BEQL = 4 : 
53 10 A3 00 0007 MOVL  16(AQB), AQB + 0495 
EA 11 00076 BRB bt} ; 
3 D3 00078 4$: TSTL AQB > 0497 
07 1 00074 BEQL «S$ : 
00006 CF 3 pd 0007¢ MOVL § AQB, QUEUE_HEAD + 0498 
08 11 00081 BRB 6$ F 
7E 0314 8F 3C 00083 S$: MOVZWL #788, -(SP) > 0499 
66 01 FB 00088 CALLS #1, SYSSEXIT : 
52 000000006 9F 3C 00088 6S: MOVZWL a@#ACP$GW_WORKSET, WORKING_SET : 0508 
48 12 00092 BNEQ : 0509 
50 000000006 9F 3 0094 MOVZWL @#ACPSGW_MAPCACHE, RO : 0513 
21 000000006 9F ¢ 00 MOVZWL @#ACP$GW-HDRCACHE. R1 : 
0 51 g OOA ADDL2 R1, R : 
24 000000006 9F ¢ OCA MOVZWL @#ACP$GW_DIRCACHE, R4 > 0514 
0 4 ¢ AC ADDL2 R4, RO : 
04 0 Dt OOAF CMPL RO. aa : 0512 
3 0B2 BGEQU 7 ; 
5 04 D B4 OVL #4, RO : 
0 D B7 7$: MOVL. RO, WORKING SET : 
50 000000A1 FF 3 BA MULL3 ig) WORKIAG_SET, RO : 0515 
FFF CO Ce MOV 4095(R0), RO F 
00001000 8F C ¢ Divi2 #4096, RO : 
0 ¢ ce ADDL2 RO, WORKING SET ; 
9 9D ADDL aig WORKING SET ; 0 16 
50 00000080 BF ¢ D4 DIVLS #128, WORKING SET, RO : 0517 
5 9 £0 onc ADDL2 RO WORKING. SET F 
0 15 A DF 8$: CMPB = 21(A0B), # : 0519 
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3 i E BNEQ 9$ ; 
52 6c E ADDL2 #6, WORKING SET : 9520 
E ps EB 9S: CLRL. 0s = ¢§P) + 0522 
7 D8FO 6 BF_ «32 «OODEA CVTWL  #-10000, =(SP) : 
6 2 FB OOODEF CALLS #2, SYS$ADJWSL : 
D4 Fe CLRL 0 = (§P) : 0523 
52 DD O00F PUSHL WORKING SET : 
67 : FB r6 CALLS #2, SYSSADJWSL ; 
FECS CF OOF O00FB ay = 
8 OF CALLS #3, SYSSLKWSET : 
: £8 001 : CBs STATUS, 10$ + 0530 
DD 91 8 PUSHL STATUS : 
66 : FB OO10A CALLS #1, SYSSEXIT : 
reas ESE RR HERES Bie hose 
$8 03 i 113 CALLS #3, SYSSLKWSET ; 
36 52 ~«2«€ 6119 BLBS § STATUS, 11$ : 0533 
52 DD 0011C PUSHL STATUS : 
66 4 FB OO11E CALLS #1, SYSSEXIT : 
00006 CF 0 FB 00121 11$: CALLS #0; INIT POOL + 0535 
9 bf 0198 CLRL 10_ CHANNEL ; 0537 
7E 1 7D 001 MOV #17 (SP) + 0540 
9 pp 0128 PUSHL 9 : 
FEAF CF 9F o1 D PUSHAB P.AAC F 
000000006 00 04 re 131 CALLS #4, SYSSASSIGN : 
“ ert a er ose 
9000s 0013p .WORD  <BUG$_NOACPCHAN! 4> : 
69 0D 01 fF 12$:  PUSHL 10_CHANNEL > 0543 
00006 CF 01 FB 00141 CALLS #17 GET CCB ; 
00006 CF 60 DO 00146 MOVL  (CéB), BISK_UCB + 0544 
x Vo N o x LL LA e o 
1E 000000006 9F 4s 006 : 0014 BBSS sexes INIT, @#EXESGL_FLAGS, 13$ 0555 
1 DD 00157 PUSHL #i : 
7E FFOF oF pe 00139 MOVZWL #65295, -(SP) ; 
ven tt) i a oo | 
om. ee O0165 Tl pcg 
000000006 00 O9 FB 016A CALLS #7, SYSS$CREMBX : 
30 00006 cr O17) 13$:  MOVL QueUE HEAD, RO + 0566 
4 =A B BA 00176 BICB2 #8, 20(RO) : 
4 OO17A ET > 0568 


3; Routine Size: 379 bytes, Routine Base: S$CODE$ + 003C 
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ono 
ooo 
wn 
NNO 
—Ooo 


1 END 
0 ELUDOM 
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SCODE 


File 
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BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: INIFCP/OBJ=OBJ$:INIFCP MSRCS$: INIF CP/UPDATE=(ENHS: INIFCP) 


flessed’ tees 


Lines/CPU 
Used: 


ifcSeo-19gs 01:08:15 


PSECT SUMMARY 
Bytes Attributes 
NOVEC, woURTS RD , EXE,NOSHR, 
NOVEC,N RD , EXE,NOSHR, 
NOVEC: » RD ,NOEXE,NQSHR, 
OVEC, WRT, RD ,NOEXE,NOSHR, 
43 NOVEC;NOURT. RD , EXE,NOSHR, 
Library Statistics 
raaeeraaees Symbols eooe--e- 
Total Loaded Percent 
18619 18 0 


COMMAND QUALIFIERS 


S79 gods + 60 data bytes 


138 pages 


ener ries Complete 


Pages 
Mapped 


1000 
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Processing 
Time 
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